﻿Public Class CSlider

    Private Sub Hc_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        Hc.Width = Nu.Left
    End Sub

    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles Hc.Scroll
        Nu.Text = Hc.Value
    End Sub

    Private Sub Nu_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nu.ValueChanged
        Hc.Value = Nu.Value
    End Sub

    ''' <summary>
    ''' Gets or sets the value assigned to the CSlider.
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property Value As Integer
        Get
            Return Nu.Value
        End Get
        Set(ByVal value As Integer)
            Nu.Value = value
        End Set
    End Property

End Class
